wid-edit.el (widget-default-get): Don't modify widget (Bug#14738)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b27eb32246f8a33c906a3d21f5d56281040d7335..e04821626f05b6680ed2adddad5d1d856d1065fa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-01-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * wid-edit.el (widget-default-get): Don't modify widget (Bug#14738).
+
 2013-07-01  Juanma Barranquero  <lekktu@gmail.com>
 
        * desktop.el (desktop-restore-frames): Rename from desktop-save-windows.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index fb62b039d793e0396c964ce084cf7f0790d86f52..2dc1e502171ddbe00c5f184dc7ace731af87bc0d 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -528,6 +528,7 @@ Otherwise, just return the value."
                (or (widget-get widget :value)
                    (progn
                      (when (widget-get widget :args)
+                       (setq widget (widget-copy widget))
                        (let (args)
                          (dolist (arg (widget-get widget :args))
                            (setq args (append args